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ISIS-II 8080/8085 MACRO 


MIP*ISIS RECEIVE 


LOC 


O0C0 
0001 
00C4 
OOC5 
00C7 
OOCA 
00C3 
OOOC 
000 
OOCE 
OOCF 


0010 
0011 
0012 
0013 
0014 
0015 
0016 


0017 
0018 


0019 
OO1A 
0018 


OOQ1C 


OBJ 


C5 
co0000 
C1 
0600 
210006 
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Ti 


It 
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ASSEMBLER, V2.0 


MIPRCV PAGE 4 


SCURCE STATEMENT 


STITLEC’MIP-ISIS: RECEIVE” 
7 ISISSMIPSrecv: 


7 


Ne Ne Ne Ne Ne Ne Ne 


THIS ROUTINE IS CALLED BY USERS TO DETERMINE IF ANYTHING 

HAS ARRIVEC FOR THEM. THE PCRT THAT IS TO BE CHECKED IN 

IN THE C REGISTER AND MUST @E O-3 (NO CHECKING IS DONE). 

IT CALLS INTASK TO SEE IF ANYTHING IS IN THE QUEUE. IF THERE 
IS, THEN INTASK WILL PLACE IT ON THE PROPER PORT QUEUE. 


do-z 


declare P$to$mb (41) word external; 


NAME 
PUBLIC 
EXTRN 
CSEG 


*MipSrev: 
procedure(Port) werd public; 


A 
7 
a 
f 
yA 


s 
YA 


cdeclare Port 


MIPRCV 
MIPRCV 
PTOMB,/INTASK 


bytes 


Msgptr word, 
Msglink based Msgptr word, 


Msaqptr = PStoSmbCPort); 


MIPRCVs PUSH 


CALL 
FOP - 
MVI 
LXI 
CAD 
DAD 
MOV 
INX 
MOV 
XCHG 
if Mssptr <> 
MOV 


8. 

INTASK 7 DO POLL FIRST 
B 

B,0O 

H,PTOMB 


ri 


<—- inm Ww wD 


Cr, if 

> MSGPTR IS IN H/L.~ PTR TO PSTOSMB IS IN D/E 
Q then P$toSmbCport) = Msglink, 
Av . 


H r SAVE MSGPTR 


LINK IN MSGPTR IS IN B/C 
? PTR TO PS$TOSMB IS IN H/L 


co 
‘ 
= 
. 


return Msoptr-, 


Ree 


zend MIPSrcv, 


vend ISISSMIPSrcev;, 


ISIS“TI 8080/8085 MACRO ASSEMBLER, V2.0 MIPRCV PAGE 
MIP“IS2LS RECEIVE 


Loc OaJ LINE SCURCE STATEMENT 


PUBLIC SYMBOLS 
MIPRCV C Q00C 


EXTERNAL SYMBOLS 
INTASK E 000C PTOMB ¢€ OOCC 


USER SYMBOLS 
INTASK = CQOC MIPRCV C QOCO PTCMB E OCOOE 


ASSEMBLY COMPLETE, NO ERRORS 


